home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / demos / lock.gc < prev    next >
Text File  |  1996-10-28  |  3KB  |  112 lines
  1. G4C
  2.  
  3. ; This is a LOCK for your amiga.
  4.  
  5. ; All it does is to put up a full screen borderless window, which will
  6. ; not close untill you give the correct pass code (which is 123)
  7.  
  8. ; You can of course bypass it by booting from a diskette, but otherwise,
  9. ; it is pretty reliable as a lock.
  10.  
  11.  
  12. WINBIG    0 0 0 0 ""        ; a window at 0,0, screen wide & high
  13. WinType 000010              ; borderless window, with no gadgets
  14. WinBackground PATTERN 1 3   ; a sexy backfill pattern to impress everyone :)
  15.  
  16. xONLOAD
  17. setvar lockvar ""           ; We clear the code variable
  18. GuiOpen lock.gc             ; and open the gui upon loading.
  19.  
  20. xONQUIT
  21. delvar lockvar              ; On quitting we delete the variable.
  22.  
  23.  
  24. ; We declare the following xONKEY events, so that we disable the standard
  25. ; window shortcuts (with which the lock could be bypassed).
  26.  
  27. xONKEY #3       ; Control C  - Close window
  28. xONKEY #2       ; Control B  - Window to back
  29. xONKEY #5       ; Control E  - Edit window
  30. xONKEY #18      ; Control R  - Reload
  31. xONKEY #14      ; Control N  - Next Window
  32. xONKEY #17      ; Control Q  - Quit Window
  33. xONKEY #26      ; Control Z  - Zoom Window
  34. xONKEY #19      ; Control S  - Status
  35.  
  36.  
  37. TEXT 0 75 0 15 "Input the correct pass code or swicth off NOW !!" 70 BOX
  38. GadTXT CENTER
  39.  
  40. ; We tell the user the pass code. Delete this line if you want a real lock.
  41. TEXT 0 190 0 15 "Input 123 and click on enter." 70 BOX
  42. GadID 2
  43. GadTXT CENTER
  44.  
  45. xBUTTON 200 100 25 15 1      ; The number buttons (with keyboard shortcuts)
  46. GadKey 1
  47. AppVar lockvar 1             ; When pressed, we append '1' to our variable
  48. update lock.gc  1 $lockvar   ; and redraw the TEXT gadget.
  49.  
  50. xBUTTON 225 100 25 15 2      ; Same as above, but for '2'
  51. GadKey 2
  52. AppVar lockvar 2
  53. update lock.gc  1 $lockvar
  54.  
  55. xBUTTON 250 100 25 15 3
  56. GadKey 3
  57. AppVar lockvar 3
  58. update lock.gc  1 $lockvar
  59.  
  60. xBUTTON 275 100 25 15 4
  61. GadKey 4
  62. AppVar lockvar 4
  63. update lock.gc  1 $lockvar
  64.  
  65. xBUTTON 300 100 25 15 5
  66. GadKey 5
  67. AppVar lockvar 5
  68. update lock.gc  1 $lockvar
  69.  
  70. xBUTTON 325 100 25 15 6
  71. GadKey 6
  72. AppVar lockvar 6
  73. update lock.gc  1 $lockvar
  74.  
  75. xBUTTON 350 100 25 15 7
  76. GadKey 7
  77. AppVar lockvar 7
  78. update lock.gc  1 $lockvar
  79.  
  80. xBUTTON 375 100 25 15 8
  81. GadKey 8
  82. AppVar lockvar 8
  83. update lock.gc  1 $lockvar
  84.  
  85. xBUTTON 400 100 25 15 9
  86. GadKey 9
  87. AppVar lockvar 9
  88. update lock.gc  1 $lockvar
  89.  
  90. xBUTTON 425 100 25 15 0
  91. GadKey 0
  92. AppVar lockvar 0
  93. update lock.gc  1 $lockvar
  94.  
  95. TEXT 200 125 250 15 "" 100 BOX    ; This is the TEXT display.
  96. GADID 1                           ; Give it an ID so we can change it.
  97.  
  98. xBUTTON 275 150 100 25 "Enter!"  ; Here we check the code against "123"
  99. GadKey #13                       ; (keyboard shortcut for enter key)
  100. if $lockvar = 123                ; and quit if correct.
  101.    GUIQUIT lock.gc
  102. else
  103.    update lock.gc  1 "Wrong Code ! Switch OFF !!"
  104.    Setvar lockvar ""                  ; Clear the variable for an other try.
  105.    Update lock.gc 2 "Hey!! I said put 123 and click Enter !!"
  106.                                       ; and tell the user again how to pass.
  107. endif
  108.  
  109. ; If we wanted a real lock, we would delete the TEXT saying the pass code,
  110. ; change the code to an other number and change the above 'else' commands.
  111.  
  112.